home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / PWAULTP3.ZIP / PWAPRGMS.A02 / PWA95 / PWAPCP01.ZIP / TDLBBS01 / TDLBBS01.ZIP / TDL_BBS.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-08-31  |  28KB  |  1,343 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.O1 (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Boolean  BOOLEAN001
  20.     Boolean  BOOLEAN002
  21.     Boolean  BOOLEAN003
  22.     Boolean  BOOLEAN004
  23.     Boolean  BOOLEAN005
  24.     Boolean  BOOLEAN006
  25.     Boolean  BOOLEAN007
  26.     Integer  INTEGER001
  27.     Integer  INTEGER002
  28.     Integer  INTEGER003
  29.     Integer  INTEGER004
  30.     Integer  INTEGER005
  31.     Integer  INTEGER006
  32.     Integer  INTEGER007
  33.     String   STRING001
  34.     String   TSTRING002(2)
  35.     String   STRING003
  36.     String   STRING004
  37.     String   STRING005
  38.     String   STRING006
  39.     String   STRING007
  40.     String   TSTRING008(4)
  41.     String   STRING009
  42.     String   TSTRING010(5)
  43.     String   STRING011
  44.     String   STRING012
  45.     String   STRING013
  46.     String   STRING014
  47.     String   STRING015
  48.     String   STRING016
  49.     String   STRING017
  50.     String   STRING018
  51.     String   STRING019
  52.     String   STRING020
  53.     String   STRING021
  54.     String   STRING022
  55.     String   STRING023
  56.     String   STRING024
  57.     String   STRING025
  58.     String   STRING026
  59.     String   STRING027
  60.     String   STRING028
  61.     String   STRING029
  62.     String   STRING030
  63.     String   STRING031
  64.     String   STRING032
  65.     String   STRING033
  66.     String   STRING034
  67.  
  68. ;------------------------------------------------------------------------------
  69.  
  70.     TSTRING010(1) = "THE"
  71.     TSTRING010(2) = "IN"
  72.     TSTRING010(3) = "A"
  73.     TSTRING010(4) = "OF"
  74.     TSTRING010(5) = "BBS"
  75.     STRING022 = PPEPath() + "TDL_BBS.KEY"
  76.     STRING023 = PPEPath() + "TDL_BBS.DAT"
  77.     STRING024 = PPEPath() + "TDL_BBS.TXT"
  78.     STRING025 = PPEPath() + ""
  79.     STRING026 = PPEPath() + "TDL_BBS.TMP"
  80.     INTEGER001 = 419
  81.     INTEGER002 = 426
  82.     Log "BBS LISTER : Entering", 0
  83.     GetUser
  84.     If (Exist(STRING022)) Goto LABEL001
  85.     Goto LABEL002
  86.     :LABEL001
  87.     STRING032 = ""
  88.     STRING033 = ""
  89.     INTEGER006 = ""
  90.     FOpen 1, PPEPath() + "TDL_BBS.KEY", 0, 2
  91.     FGet 1, STRING032
  92.     FGet 1, STRING033
  93.     FGet 1, INTEGER003
  94.     FClose 1
  95.     For INTEGER007 = 1 To 103
  96.         STRING034 = Mid(STRING032 + STRING033, INTEGER007, 1)
  97.         INTEGER005 = Asc(STRING034)
  98.         INTEGER006 = INTEGER006 + INTEGER005
  99.     Next
  100.     INTEGER004 = (INTEGER006 * Len(Strip(STRING032, " "))) * 63
  101.     If (INTEGER003 <> INTEGER004) Then
  102.         PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  103.         PrintLn "@X09│ @X0FTDL BBS Lister                                          Version 0.1ß   1995 @X09│"
  104.         PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  105.         PrintLn "@X08│@X09│                                                                           │@X08│"
  106.         PrintLn "@X08.@X01│   @X08Registered To:@X0F " + STRING032 + "@POS:78@@X01│@X08."
  107.         PrintLn "@X08.│                                                                           │."
  108.         PrintLn "@X08·.     @X08System Name:@X0F " + STRING033 + "@POS:78@@X08."
  109.         PrintLn "@X08.│                                                                           │."
  110.         PrintLn "@X08.@X01│   @X08Serial Number:@X0F ", ((INTEGER006 * Len(Strip(STRING032, " "))) * 63) / 27 + "@POS:78@@X01│@X08."
  111.         PrintLn "@X08│@X09│                                                                           │@X08│"
  112.         PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  113.         PrintLn "@X09│                                                                             │"
  114.         PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  115.         Delay 120
  116.     Else
  117.         :LABEL002
  118.         PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  119.         PrintLn "@X09│ @X0FTDL BBS Lister                                          Version 0.1ß   1995 @X09│"
  120.         PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  121.         PrintLn "@X08│@X09│                                                                           │@X08│"
  122.         PrintLn "@X08.@X01│   @X08Registered To: @X0E<@X84UNREGISTERED@X0E>@POS:78@@X01│@X08."
  123.         PrintLn "@X08.│                                                                           │."
  124.         PrintLn "@X08·.     @X08System Name:@X0F **** UNKNOWN ****@POS:78@@X08."
  125.         PrintLn "@X08.│                                                                           │."
  126.         PrintLn "@X08.@X01│   @X08Serial Number:@X0F 000000000@POS:78@@X01│@X08."
  127.         PrintLn "@X08│@X09│                                                                           │@X08│"
  128.         PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  129.         PrintLn "@X09│                                                                             │"
  130.         PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  131.         Newlines 2
  132.         PrintLn "@X0E           Please help your Sysop REGISTER this PPE it's only $10.00@X0F"
  133.         Delay 250
  134.         Goto LABEL003
  135.     Endif
  136.     :LABEL003
  137.     Cls
  138.     Newlines 2
  139.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  140.     PrintLn "@X09│  @X0FTDL BBS Lister                                        Version 0.1ß   1995  @X09│"
  141.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  142.     PrintLn "@X08│@X09│                                                                           │@X08│"
  143.     PrintLn "@X08.@X01│   @X02{@X0EA@X02}@X03dd A BBS To The List                 @X02{@X0EV@X02}@X03iew The Current Listing      @X01│@X08."
  144.     PrintLn "@X08.│                                                                           @X08│."
  145.     PrintLn "@X08·.   @X02{@X0ED@X02}@X03ownload Current List                 @X02{@X0EE@X02}@X03dit A Listed BBS System      @X08."
  146.     PrintLn "@X08 .                                                                           ."
  147.     PrintLn "@X08 ·                                                                           ·"
  148.     PrintLn "@X08.@X01│                       @X02{@X04Q@X02}@X03uit/Return To System                             @X01│@X08."
  149.     PrintLn "@X08│@X09│                                                                           │@X08│"
  150.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  151.     PrintLn "@X09│@POS:78@ @X09│"
  152.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  153.     Newlines 5
  154.     :LABEL004
  155.     STRING011 = ""
  156.     STRING011 = Inkey()
  157.     If (Upper(STRING011) == "A") Goto LABEL005
  158.     If (Upper(STRING011) == "V") Goto LABEL025
  159.     If (Upper(STRING011) == "D") Goto LABEL035
  160.     If (Upper(STRING011) == "E") Goto LABEL039
  161.     If (Upper(STRING011) == "Q") Goto LABEL074
  162.     Goto LABEL004
  163.     :LABEL005
  164.     BOOLEAN005 = 0
  165.     STRING001 = ""
  166.     TSTRING002(1) = ""
  167.     TSTRING002(2) = ""
  168.     STRING003 = ""
  169.     STRING004 = ""
  170.     STRING005 = ""
  171.     STRING006 = ""
  172.     STRING007 = ""
  173.     TSTRING008(1) = ""
  174.     TSTRING008(2) = ""
  175.     TSTRING008(3) = ""
  176.     TSTRING008(4) = ""
  177.     STRING009 = ""
  178.     Cls
  179.     Newline
  180.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  181.     PrintLn "@X09│  @X0FTDL BBS Lister                  @X8CADD A BBS             @X0FVersion 0.1ß   1995  @X09│"
  182.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  183.     PrintLn "@X08│@X09│ @X0FEnter the BBS Name:   @X01.............................                       @X09│"
  184.     PrintLn "@X08.@X01│ @X0FEnter Sysop's Name:   @X01.........................                           │@X08."
  185.     PrintLn "@X08.│ @X0FNumber of BBS Nodes:  @X01...                                                 @X08│."
  186.     PrintLn "@X08·. @X0FEnter 1st BBS Number:                                                    @X08."
  187.     PrintLn "@X08 . @X0FEnter 2nd BBS Number:                                                    @X08."
  188.     PrintLn "@X08 · @X0FEnter BBS Buad Rate:  @X01...............                                    "
  189.     PrintLn "@X01   @X0FBBS Network Address:  @X01....................                               "
  190.     PrintLn "@X01   @X0FEnter BBS Software:   @X01....................                               "
  191.     PrintLn "@X01 @X08·                                                                           ·"
  192.     PrintLn "@X08 . @X0FEnter A Brief Description Of This BBS:                                    @X08."
  193.     PrintLn "@X08             @X01························································       "
  194.     PrintLn "@X01             ························································       "
  195.     PrintLn "@X08·.           @X01························································        @X08.·"
  196.     PrintLn "@X08.│           @X01························································        @X08│."
  197.     PrintLn "@X08.@X01│                                                                           │@X08."
  198.     PrintLn "@X08│@X09│ @X0FWho is Allowed To Edit This Entry: @X01.........................              @X09│@X08│"
  199.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  200.     PrintLn "@X09│                                                                                     @X09│"
  201.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@POFF@"
  202.     AnsiPos 26, 5
  203.     InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64
  204.     AnsiPos 26, 6
  205.     InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64
  206.     AnsiPos 26, 7
  207.     InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64
  208.     Gosub LABEL067
  209.     TSTRING002(1) = STRING031
  210.     Gosub LABEL068
  211.     TSTRING002(2) = STRING031
  212.     AnsiPos 26, 10
  213.     InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64
  214.     AnsiPos 26, 11
  215.     InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64
  216.     AnsiPos 26, 12
  217.     InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64
  218.     AnsiPos 14, 15
  219.     InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64
  220.     AnsiPos 14, 16
  221.     InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64
  222.     AnsiPos 14, 17
  223.     InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64
  224.     AnsiPos 14, 18
  225.     InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64
  226.     AnsiPos 39, 20
  227.     InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64
  228.     :LABEL006
  229.     Cls
  230.     Newline
  231.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  232.     PrintLn "@X09│                                                                             │"
  233.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  234.     PrintLn "@X08│@X09│ @X02A@X0F}  BBS Name  :@X0B " + STRING001 + "@POS:78@@X09│@X08│"
  235.     PrintLn "@X08.@X01│ @X02B@X0F}  Sysop     :@X0B " + STRING004 + "@POS:78@@X01│@X08."
  236.     PrintLn "@X08.│ @X02C@X0F}  Nodes     :@X0B " + STRING003 + "@POS:78@@X08│."
  237.     PrintLn "@X08·. @X02D@X0F}  Phone #1  :@X0B " + TSTRING002(1) + "@POS:78@@X08."
  238.     PrintLn "@X08 . @X02E@X0F}  Phone #2  :@X0B " + TSTRING002(2) + "@POS:78@@X08."
  239.     PrintLn "@X08 · @X02F@X0F}  Baud Rate :@X0B " + STRING005 + "@POS:78@@X08·"
  240.     PrintLn "@X08   @X02G@X0F}  Network   :@X0B " + STRING006 + "@POS:78@"
  241.     PrintLn "@X02   H@X0F}  Software  :@X0B " + STRING007 + "@POS:78@"
  242.     PrintLn "@X0F @X08· @X02I@X0F}  Desc #1   :@X0B " + TSTRING008(1) + "@POS:78@@X08·"
  243.     PrintLn "@X08       @X0FDesc #2   :@X0B " + TSTRING008(2) + "@POS:78@"
  244.     PrintLn "@X08·.     @X0FDesc #3   :@X0B " + TSTRING008(3) + "@POS:78@@X08.·"
  245.     PrintLn "@X08.│     @X0FDesc #4   :@X0B " + TSTRING008(4) + "@POS:78@@X08│."
  246.     PrintLn "@X08.@X01│ @X02J@X0F}@X01··@X0FEditor    :@X0B " + STRING009 + "@POS:78@@X01│@X08."
  247.     PrintLn "@X08│@X09│                                                                           │@X08│"
  248.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  249.     PrintLn "@X09│  @X02S@X0Fave / Quit                   @X02Letter to Edit               @X02Q@X0Fuit / No Save  @X09│"
  250.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  251.     Newline
  252.     :LABEL007
  253.     STRING011 = ""
  254.     STRING011 = Inkey()
  255.     If (Upper(STRING011) == "Q") Goto LABEL003
  256.     If (Upper(STRING011) == "A") Goto LABEL008
  257.     If (Upper(STRING011) == "B") Goto LABEL009
  258.     If (Upper(STRING011) == "C") Goto LABEL010
  259.     If (Upper(STRING011) == "D") Goto LABEL011
  260.     If (Upper(STRING011) == "E") Goto LABEL012
  261.     If (Upper(STRING011) == "F") Goto LABEL013
  262.     If (Upper(STRING011) == "G") Goto LABEL014
  263.     If (Upper(STRING011) == "H") Goto LABEL015
  264.     If (Upper(STRING011) == "I") Goto LABEL016
  265.     If (Upper(STRING011) == "J") Goto LABEL017
  266.     If (Upper(STRING011) == "S") Goto LABEL018
  267.     Goto LABEL007
  268.     :LABEL008
  269.     Cls
  270.     Newlines 2
  271.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  272.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  273.     PrintLn "@X08·@X01│                                                                           │@X08·"
  274.     PrintLn "@X08·  Enter The New BBS Name:                                       @POS:78@·"
  275.     PrintLn "@X08·@X01│                                                                           │@X08·"
  276.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  277.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  278.     AnsiPos 28, 6
  279.     InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64
  280.     Goto LABEL006
  281.     :LABEL009
  282.     Cls
  283.     Newlines 2
  284.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  285.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  286.     PrintLn "@X08·@X01│                                                                           │@X08·"
  287.     PrintLn "@X08·  Enter The New Sysop's Name:                                @POS:78@·"
  288.     PrintLn "@X08·@X01│                                                                           │@X08·"
  289.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  290.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  291.     AnsiPos 32, 6
  292.     InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64
  293.     Goto LABEL006
  294.     :LABEL010
  295.     Cls
  296.     Newlines 2
  297.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  298.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  299.     PrintLn "@X08·@X01│                                                                           │@X08·"
  300.     PrintLn "@X08·  Enter The New Amount Of Nodes:                                       @POS:78@·"
  301.     PrintLn "@X08·@X01│                                                                           │@X08·"
  302.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  303.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  304.     AnsiPos 35, 6
  305.     InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64
  306.     Goto LABEL006
  307.     :LABEL011
  308.     Cls
  309.     Newlines 2
  310.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  311.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  312.     PrintLn "@X08·@X01│                                                                           │@X08·"
  313.     PrintLn "@X08·  Enter The New Main BBS Number:                                      @POS:78@·"
  314.     PrintLn "@X08·@X01│                                                                           │@X08·"
  315.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  316.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  317.     Gosub LABEL069
  318.     TSTRING002(1) = STRING031
  319.     Goto LABEL006
  320.     :LABEL012
  321.     Cls
  322.     Newlines 2
  323.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  324.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  325.     PrintLn "@X08·@X01│                                                                           │@X08·"
  326.     PrintLn "@X08·  Enter The New Second BBS Number:                                    @POS:78@·"
  327.     PrintLn "@X08·@X01│                                                                           │@X08·"
  328.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  329.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  330.     Gosub LABEL070
  331.     TSTRING002(2) = STRING031
  332.     Goto LABEL006
  333.     :LABEL013
  334.     Cls
  335.     Newlines 2
  336.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  337.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  338.     PrintLn "@X08·@X01│                                                                           │@X08·"
  339.     PrintLn "@X08·  Enter The Highest Supported Buad Rate:                              @POS:78@·"
  340.     PrintLn "@X08·@X01│                                                                           │@X08·"
  341.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  342.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  343.     AnsiPos 43, 6
  344.     InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64
  345.     Goto LABEL006
  346.     :LABEL014
  347.     Cls
  348.     Newlines 2
  349.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  350.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  351.     PrintLn "@X08·@X01│                                                                           │@X08·"
  352.     PrintLn "@X08·  Enter The Network/Network Address:                                  @POS:78@·"
  353.     PrintLn "@X08·@X01│                                                                           │@X08·"
  354.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  355.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  356.     AnsiPos 39, 6
  357.     InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64
  358.     Goto LABEL006
  359.     :LABEL015
  360.     Cls
  361.     Newlines 2
  362.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  363.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  364.     PrintLn "@X08·@X01│                                                                           │@X08·"
  365.     PrintLn "@X08·  Enter The Software Type And Version:                                @POS:78@·"
  366.     PrintLn "@X08·@X01│                                                                           │@X08·"
  367.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  368.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  369.     AnsiPos 41, 6
  370.     InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64
  371.     Goto LABEL006
  372.     :LABEL016
  373.     Cls
  374.     Newlines 2
  375.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  376.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  377.     PrintLn "@X08·@X01│ Enter Your New Description:                                               │@X08·"
  378.     PrintLn "@X08"
  379.     PrintLn "@X08   ......................................................."
  380.     PrintLn "@X08   ......................................................."
  381.     PrintLn "@X08·  .......................................................@POS:78@·"
  382.     PrintLn "@X08·@X01│ @X08.......................................................@POS:78@@X01│@X08·"
  383.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  384.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  385.     AnsiPos 4, 7
  386.     InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64
  387.     AnsiPos 4, 8
  388.     InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64
  389.     AnsiPos 4, 9
  390.     InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64
  391.     AnsiPos 4, 10
  392.     InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64
  393.     Goto LABEL006
  394.     :LABEL017
  395.     Cls
  396.     Newlines 2
  397.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  398.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  399.     PrintLn "@X08·@X01│                                                                           │@X08·"
  400.     PrintLn "@X08·  Enter Name Of Person Allowed To Edit Entry:        @POS:78@·"
  401.     PrintLn "@X08·@X01│                                                                           │@X08·"
  402.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  403.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  404.     AnsiPos 48, 6
  405.     InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64
  406.     Goto LABEL006
  407.     :LABEL018
  408.     Cls
  409.     Newlines 2
  410.     PrintLn "@X0FChecking for duplicate entries..."
  411.     If (Exist(STRING023)) Gosub LABEL019
  412.     Goto LABEL022
  413.     :LABEL019
  414.     BOOLEAN003 = 0
  415.     BOOLEAN004 = 0
  416.     FOpen 1, STRING023, 0, 2
  417.     FSeek 1, 0, 0
  418.     :LABEL020
  419.     If (Ferr(1)) Goto LABEL021
  420.     FRead 1, STRING012, 25
  421.     If (Ferr(1)) Goto LABEL021
  422.     FRead 1, STRING012, 8
  423.     FRead 1, STRING019, 30
  424.     FRead 1, STRING012, 25
  425.     FRead 1, STRING012, 3
  426.     FRead 1, STRING020, 14
  427.     FRead 1, STRING021, 14
  428.     FRead 1, STRING012, 15
  429.     FRead 1, STRING012, 20
  430.     FRead 1, STRING012, 20
  431.     FRead 1, STRING012, 55
  432.     FRead 1, STRING012, 55
  433.     FRead 1, STRING012, 55
  434.     FRead 1, STRING012, 55
  435.     FRead 1, STRING012, 25
  436.     If (STRING020 == "") STRING020 = "!@#$%"
  437.     If (STRING021 == "") STRING021 = "!@#$%"
  438.     If ((((TSTRING002(1) == STRING020) || (TSTRING002(1) == STRING021)) || (TSTRING002(2) == STRING020)) || (TSTRING002(2) == STRING021)) Then
  439.         BOOLEAN003 = 1
  440.     Else
  441.         Tokenize STRING019
  442.         STRING017 = TokCount()
  443.         For STRING016 = 1 To STRING017
  444.             GetToken STRING012
  445.             STRING012 = Upper(STRING012)
  446.             If (((((STRING012 <> TSTRING010(1)) && (STRING012 <> TSTRING010(2))) && (STRING012 <> TSTRING010(3))) && (STRING012 <> TSTRING010(4))) && (STRING012 <> TSTRING010(5))) Then
  447.                 If (InStr(Upper(STRING001), STRING012) <> 0) Then
  448.                     BOOLEAN004 = 1
  449.                     Break
  450.                 Endif
  451.             Endif
  452.         Next
  453.         If (BOOLEAN004) Goto LABEL021
  454.         Goto LABEL020
  455.     Endif
  456.     :LABEL021
  457.     FClose 1
  458.     If (BOOLEAN005) BOOLEAN004 = 0
  459.     If (BOOLEAN003) Then
  460.         Newlines 2
  461.         PrintLn "@X0EOne of the phone numbers you entered duplicates a number already in the"
  462.         PrintLn "@X0Edatabase.  @X0CYou will not be able to save this entry."
  463.         Newline
  464.         Wait
  465.         Goto LABEL003
  466.     Endif
  467.     If (BOOLEAN004) Then
  468.         BOOLEAN005 = 1
  469.         Newlines 2
  470.         PrintLn "@X0EThe BBS name you entered duplicates or partially duplicates a bbs already"
  471.         PrintLn "in the database.  @X0CPlease review your entry before saving!."
  472.         Newline
  473.         PrintLn "@X02Your Entry     : @X0A" + STRING001
  474.         PrintLn "@X03Matching Entry : @X0B" + STRING019
  475.         PrintLn "@X04Matching Word  : @X0C" + STRING012
  476.         Newline
  477.         Wait
  478.         Goto LABEL006
  479.     Endif
  480.     Return
  481.     :LABEL022
  482.     Log "BBS LISTER : Saved - " + STRING001, 0
  483.     If (Exist(STRING023)) Goto LABEL023
  484.     FCreate 1, STRING023, 1, 3
  485.     Goto LABEL024
  486.     :LABEL023
  487.     FOpen 1, STRING023, 1, 2
  488.     FSeek 1, 0, 2
  489.     :LABEL024
  490.     FWrite 1, U_Name(), 25
  491.     FWrite 1, String(Date()), 8
  492.     FWrite 1, STRING001, 30
  493.     FWrite 1, STRING004, 25
  494.     FWrite 1, STRING003, 3
  495.     FWrite 1, TSTRING002(1), 14
  496.     FWrite 1, TSTRING002(2), 14
  497.     FWrite 1, STRING005, 15
  498.     FWrite 1, STRING006, 20
  499.     FWrite 1, STRING007, 20
  500.     FWrite 1, TSTRING008(1), 55
  501.     FWrite 1, TSTRING008(2), 55
  502.     FWrite 1, TSTRING008(3), 55
  503.     FWrite 1, TSTRING008(4), 55
  504.     FWrite 1, STRING009, 25
  505.     FClose 1
  506.     Newlines 2
  507.     PrintLn "@X0FThe new BBS entry has been saved."
  508.     Newline
  509.     Wait
  510.     Goto LABEL003
  511.     :LABEL025
  512.     If (Exist(STRING023)) Goto LABEL026
  513.     PrintLn "@X0FSorry but there are not any bbses listed at this time."
  514.     Newline
  515.     Wait
  516.     Goto LABEL003
  517.     :LABEL026
  518.     Cls
  519.     Newlines 2
  520.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  521.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  522.     PrintLn "@X08·@X01│                                                                           │@X08·"
  523.     PrintLn "@X08·      Detailed Listing           Short Listing                 Return  @POS:78@·"
  524.     PrintLn "@X08·@X01│                                                                           │@X08·"
  525.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  526.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  527.     Newlines 2
  528.     :LABEL027
  529.     STRING011 = ""
  530.     STRING011 = Inkey()
  531.     If (Upper(STRING011) == "D") Goto LABEL031
  532.     If (Upper(STRING011) == "S") Goto LABEL028
  533.     If (Upper(STRING011) == "R") Goto LABEL003
  534.     Goto LABEL027
  535.     :LABEL028
  536.     Cls
  537.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙ ──@X01──@X09───@X01──@X08── ∙ ∙  ·   ∙∙ ∙     ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  538.     PrintLn "@X09│           @X0FBBS Name                Baud Rate           Phone          Nodes  @X09│"
  539.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·   ∙∙ ∙     ·   ─┬─ ──@X01──@X09─@X01──@X08──   ∙ ─┬─·  ∙∙ ∙    ·  ─┬─∙∙──@X01──@X09──@X0F┐@X01│"
  540.     FOpen 1, STRING023, 0, 0
  541.     FSeek 1, 0, 0
  542.     :LABEL029
  543.     If (Ferr(1)) Goto LABEL030
  544.     FRead 1, STRING012, 25
  545.     If (Ferr(1)) Goto LABEL030
  546.     FRead 1, STRING012, 8
  547.     FRead 1, STRING001, 30
  548.     FRead 1, STRING004, 25
  549.     FRead 1, STRING003, 3
  550.     FRead 1, TSTRING002(1), 14
  551.     FRead 1, TSTRING002(2), 14
  552.     FRead 1, STRING005, 15
  553.     FRead 1, STRING006, 20
  554.     FRead 1, STRING007, 20
  555.     FRead 1, TSTRING008(1), 55
  556.     FRead 1, TSTRING008(2), 55
  557.     FRead 1, TSTRING008(3), 55
  558.     FRead 1, TSTRING008(4), 55
  559.     FRead 1, STRING009, 25
  560.     PrintLn "@X09││@X02 " + STRING001 + "@POS:33@@X09│ @X02  " + STRING005 + "@POS:51@@X09│ @X02" + TSTRING002(1) + "@POS:68@@X09│ @X02  " + STRING003 + "@POS:77@ @X09││@X0F"
  561.     Goto LABEL029
  562.     :LABEL030
  563.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·   ∙∙ ∙     ·   ─┴─ ──@X01──@X09─@X01──@X08──   ∙ ─┴─·  ∙∙ ∙    ·  ─┴─∙∙──@X01──@X09──@X0F┘@X01│"
  564.     PrintLn "@X09│                                                                             │"
  565.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙ ──@X01──@X09───@X01──@X08── ∙ ∙  ·   ∙∙ ∙     ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  566.     FClose 1
  567.     Wait
  568.     Goto LABEL003
  569.     :LABEL031
  570.     FOpen 1, STRING023, 0, 0
  571.     STRING016 = FileInf(STRING023, 4) / INTEGER001
  572.     STRING015 = 1
  573.     FSeek 1, 0, 0
  574.     :LABEL032
  575.     If (Ferr(1)) Goto LABEL034
  576.     FRead 1, STRING013, 25
  577.     FRead 1, STRING014, 8
  578.     FRead 1, STRING001, 30
  579.     FRead 1, STRING004, 25
  580.     FRead 1, STRING003, 3
  581.     FRead 1, TSTRING002(1), 14
  582.     FRead 1, TSTRING002(2), 14
  583.     FRead 1, STRING005, 15
  584.     FRead 1, STRING006, 20
  585.     FRead 1, STRING007, 20
  586.     FRead 1, TSTRING008(1), 55
  587.     FRead 1, TSTRING008(2), 55
  588.     FRead 1, TSTRING008(3), 55
  589.     FRead 1, TSTRING008(4), 55
  590.     FRead 1, STRING009, 25
  591.     Cls
  592.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  593.     PrintLn "@X09│  @X0FTDL BBS Lister              @X86DETAILED LISTING           @X0FVersion 0.1ß  1995  @X09│"
  594.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  595.     PrintLn "@X08│@X09│ @X06BBS Name : @X02" + STRING001 + "@POS:78@@X09│@X08│"
  596.     PrintLn "@X08.@X01│ @X06Sysop    : @X02" + STRING004 + "@POS:78@@X01│@X08."
  597.     PrintLn "@X08.│ @X06Nodes    : @X02" + STRING003 + "@POS:78@@X08│."
  598.     PrintLn "@X08·. @X06Phone #1 : @X02" + TSTRING002(1) + "@POS:78@@X08."
  599.     PrintLn "@X08 . @X06Phone #2 : @X02" + TSTRING002(2) + "@POS:78@@X08."
  600.     PrintLn "@X08 · @X06Baud     : @X02" + STRING005 + "@POS:78@@X08·"
  601.     PrintLn "@X08   @X06Network  : @X02" + STRING006 + "@POS:78@"
  602.     PrintLn "@X06   Software : @X02" + STRING007 + "@POS:78@"
  603.     PrintLn "@X08·. @X06Description  : @X02 " + TSTRING008(1) + "@POS:78@@X08.·"
  604.     PrintLn "@X08.│              @X06: @X02 " + TSTRING008(2) + "@POS:78@@X08│."
  605.     PrintLn "@X08.@X01│              @X06: @X02 " + TSTRING008(3) + "@POS:78@@X01│@X08."
  606.     PrintLn "@X08│@X09│              @X06: @X02 " + TSTRING008(4) + "@POS:78@@X09│@X08│"
  607.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  608.     PrintLn "@X09│    @X0E{@X02N@X0E}@X03ext                       @X0E{@X02P@X0E}@X03revious                       @X0E{@X04Q@X0E}@X03uit     @X09│"
  609.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  610.     PrintLn ""
  611.     PrintLn "@X0F  @X05Authored by  : @X02" + STRING013 + "@POS:45@@X05Date : @X02" + STRING014 + "@POS:71@@X02" + STRING015 + " @X05of @X02" + STRING016 + "@POS:78@@X0F"
  612.     Newline
  613.     :LABEL033
  614.     STRING011 = ""
  615.     STRING011 = Inkey()
  616.     Select Case (Upper(STRING011))
  617.         Case "N"
  618.             If (STRING015 == STRING016) Goto LABEL033
  619.             Inc STRING015
  620.         Case "P"
  621.             If (STRING015 < 2) Goto LABEL033
  622.             Dec STRING015
  623.             FSeek 1, -INTEGER001 * 2, 1
  624.         Case Else
  625.             If (Upper(STRING011) == "Q") Then
  626.                 FClose 1
  627.                 Goto LABEL003
  628.             Endif
  629.             Goto LABEL033
  630.     End Select
  631.     Goto LABEL032
  632.     :LABEL034
  633.     FClose 1
  634.     Goto LABEL003
  635.     :LABEL035
  636.     If (Exist(STRING023)) Goto LABEL036
  637.     PrintLn "@X0FSorry but there are not any bbses listed at this time."
  638.     Newline
  639.     Wait
  640.     Goto LABEL003
  641.     :LABEL036
  642.     Log "BBS LISTER : Download BBS List", 0
  643.     FOpen 1, STRING023, 0, 0
  644.     FSeek 1, 0, 0
  645.     FCreate 2, STRING024, 1, 3
  646.     :LABEL037
  647.     If (Ferr(1)) Goto LABEL038
  648.     FRead 1, STRING013, 25
  649.     If (Ferr(1)) Goto LABEL038
  650.     FRead 1, STRING014, 8
  651.     FRead 1, STRING001, 30
  652.     FRead 1, STRING004, 25
  653.     FRead 1, STRING003, 3
  654.     FRead 1, TSTRING002(1), 14
  655.     FRead 1, TSTRING002(2), 14
  656.     FRead 1, STRING005, 15
  657.     FRead 1, STRING006, 20
  658.     FRead 1, STRING007, 20
  659.     FRead 1, TSTRING008(1), 55
  660.     FRead 1, TSTRING008(2), 55
  661.     FRead 1, TSTRING008(3), 55
  662.     FRead 1, TSTRING008(4), 55
  663.     FRead 1, STRING009, 25
  664.     FPutLn 2, "══════════════════════════════════════════════════════════════════════════"
  665.     FPutLn 2, "BBS Name : " + STRING001
  666.     FPutLn 2, "Sysop    : " + STRING004
  667.     FPutLn 2, "Nodes    : " + STRING003
  668.     FPutLn 2, "Phone #1 : " + TSTRING002(1)
  669.     FPutLn 2, "Phone #2 : " + TSTRING002(2)
  670.     FPutLn 2, "Baud     : " + STRING005
  671.     FPutLn 2, "Software : " + STRING007
  672.     FPutLn 2, "Description : " + TSTRING008(1)
  673.     FPutLn 2, "            : " + TSTRING008(2)
  674.     FPutLn 2, "            : " + TSTRING008(3)
  675.     FPutLn 2, "            : " + TSTRING008(4)
  676.     FPutLn 2, "──────────────────────────────────────────────────────────────────────────"
  677.     FPutLn 2, "Authored by : " + STRING013
  678.     FPutLn 2, "Date        : " + STRING014
  679.     FPutLn 2, "══════════════════════════════════════════════════════════════════════════"
  680.     FPutLn 2, ""
  681.     FPutLn 2, ""
  682.     Goto LABEL037
  683.     :LABEL038
  684.     FClose 1
  685.     FClose 2
  686.     Download "LISTER.TXT"
  687.     Goto LABEL003
  688.     :LABEL039
  689.     BOOLEAN001 = 0
  690.     BOOLEAN002 = 0
  691.     If (Exist(STRING023)) Goto LABEL040
  692.     PrintLn "@X0FSorry but there are not any bbses listed at this time."
  693.     Newline
  694.     Wait
  695.     Goto LABEL003
  696.     :LABEL040
  697.     PrintLn "@X0FSearching for records you are allowed to edit..."
  698.     STRING025 = PPEPath() + "$EDIT$.0"
  699.     If (Exist(STRING025)) Then
  700.         For STRING017 = 1 To 999
  701.             If (Exist(PPEPath() + "$EDIT$." + STRING017)) Continue
  702.             STRING025 = PPEPath() + "$EDIT$." + STRING017
  703.             Break
  704.         Next
  705.     Endif
  706.     STRING015 = 0
  707.     FOpen 1, STRING023, 0, 0
  708.     FSeek 1, 0, 0
  709.     FCreate 2, STRING025, 2, 3
  710.     :LABEL041
  711.     If (Ferr(1)) Goto LABEL042
  712.     FRead 1, STRING013, 25
  713.     If (Ferr(1)) Goto LABEL042
  714.     FRead 1, STRING014, 8
  715.     FRead 1, STRING001, 30
  716.     FRead 1, STRING004, 25
  717.     FRead 1, STRING003, 3
  718.     FRead 1, TSTRING002(1), 14
  719.     FRead 1, TSTRING002(2), 14
  720.     FRead 1, STRING005, 15
  721.     FRead 1, STRING006, 20
  722.     FRead 1, STRING007, 20
  723.     FRead 1, TSTRING008(1), 55
  724.     FRead 1, TSTRING008(2), 55
  725.     FRead 1, TSTRING008(3), 55
  726.     FRead 1, TSTRING008(4), 55
  727.     FRead 1, STRING009, 25
  728.     Inc STRING015
  729.     If (((U_Name() == STRING013) || (U_Name() == Upper(STRING009))) || (U_Sec >= "")) Then
  730.         FWrite 2, STRING015, 7
  731.         FWrite 2, STRING013, 25
  732.         FWrite 2, STRING014, 8
  733.         FWrite 2, STRING001, 30
  734.         FWrite 2, STRING004, 25
  735.         FWrite 2, STRING003, 3
  736.         FWrite 2, TSTRING002(1), 14
  737.         FWrite 2, TSTRING002(2), 14
  738.         FWrite 2, STRING005, 15
  739.         FWrite 2, STRING006, 20
  740.         FWrite 2, STRING007, 20
  741.         FWrite 2, TSTRING008(1), 55
  742.         FWrite 2, TSTRING008(2), 55
  743.         FWrite 2, TSTRING008(3), 55
  744.         FWrite 2, TSTRING008(4), 55
  745.         FWrite 2, STRING009, 25
  746.     Endif
  747.     Goto LABEL041
  748.     :LABEL042
  749.     FClose 1
  750.     FClose 2
  751.     STRING016 = FileInf(STRING025, 4) / INTEGER002
  752.     If (STRING016 == 0) Then
  753.         Delete STRING025
  754.         Newline
  755.         PrintLn "@X0FSorry there are no entries for you to edit."
  756.         Newline
  757.         Wait
  758.         Goto LABEL003
  759.     Endif
  760.     STRING015 = 1
  761.     FOpen 2, STRING025, 2, 3
  762.     FSeek 2, 0, 0
  763.     :LABEL043
  764.     If (Ferr(2)) Goto LABEL047
  765.     FRead 2, STRING018, 7
  766.     FRead 2, STRING013, 25
  767.     FRead 2, STRING014, 8
  768.     FRead 2, STRING001, 30
  769.     FRead 2, STRING004, 25
  770.     FRead 2, STRING003, 3
  771.     FRead 2, TSTRING002(1), 14
  772.     FRead 2, TSTRING002(2), 14
  773.     FRead 2, STRING005, 15
  774.     FRead 2, STRING006, 20
  775.     FRead 2, STRING007, 20
  776.     FRead 2, TSTRING008(1), 55
  777.     FRead 2, TSTRING008(2), 55
  778.     FRead 2, TSTRING008(3), 55
  779.     FRead 2, TSTRING008(4), 55
  780.     FRead 2, STRING009, 25
  781.     :LABEL044
  782.     Cls
  783.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  784.     PrintLn "@X09│  @X0FTDL BBS Lister                   @X86EDITOR                @X0FVersion 0.1ß  1995  @X09│"
  785.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  786.     PrintLn "@X08│@X09│ @X06BBS Name : @X02" + STRING001 + "@POS:78@@X09│@X08│"
  787.     PrintLn "@X08.@X01│ @X06Sysop    : @X02" + STRING004 + "@POS:78@@X01│@X08."
  788.     PrintLn "@X08.│ @X06Nodes    : @X02" + STRING003 + "@POS:78@@X08│."
  789.     PrintLn "@X08·. @X06Phone #1 : @X02" + TSTRING002(1) + "@POS:78@@X08."
  790.     PrintLn "@X08 . @X06Phone #2 : @X02" + TSTRING002(2) + "@POS:78@@X08."
  791.     PrintLn "@X08 · @X06Baud     : @X02" + STRING005 + "@POS:78@@X08·"
  792.     PrintLn "@X08   @X06Network  : @X02" + STRING006 + "@POS:78@"
  793.     PrintLn "@X06   Software : @X02" + STRING007 + "@POS:78@"
  794.     PrintLn "@X08·. @X06Description  : @X02 " + TSTRING008(1) + "@POS:78@@X08.·"
  795.     PrintLn "@X08.│              @X06: @X02 " + TSTRING008(2) + "@POS:78@@X08│."
  796.     PrintLn "@X08.@X01│              @X06: @X02 " + TSTRING008(3) + "@POS:78@@X01│@X08."
  797.     PrintLn "@X08│@X09│              @X06: @X02 " + TSTRING008(4) + "@POS:78@@X09│@X08│"
  798.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  799.     PrintLn "@X09│    @X0E{@X02N@X0E}@X03ext        @X0E{@X02P@X0E}@X03rev         @X0E{@X02E@X0E}@X03dit          @X0E{@X02R@X0E}@X03emove         @X0E{@X04Q@X0E}@X03uit @POS:78@ @X09│"
  800.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  801.     PrintLn ""
  802.     PrintLn "@X0F  @X05Authored by  : @X02" + STRING013 + "@POS:45@@X05Date : @X02" + STRING014 + "@POS:71@@X02" + STRING015 + " @X05of @X02" + STRING016 + "@POS:78@@X0F"
  803.     Newline
  804.     :LABEL045
  805.     STRING011 = ""
  806.     STRING011 = Inkey()
  807.     Select Case (Upper(STRING011))
  808.         Case "N"
  809.             If (STRING015 == STRING016) Goto LABEL045
  810.             Inc STRING015
  811.         Case "P"
  812.             If (STRING015 < 2) Goto LABEL045
  813.             Dec STRING015
  814.             FSeek 2, -INTEGER002 * 2, 1
  815.         Case Else
  816.             If (Upper(STRING011) == "E") Then
  817.                 Goto LABEL048
  818.             Endif
  819.             If (Upper(STRING011) == "R") Then
  820.                 Goto LABEL061
  821.             Endif
  822.             If (Upper(STRING011) == "Q") Then
  823.                 FClose 2
  824.                 Gosub LABEL062
  825.                 Delete STRING025
  826.                 Goto LABEL003
  827.             Endif
  828.             Goto LABEL045
  829.     End Select
  830.     :LABEL046
  831.     Goto LABEL043
  832.     :LABEL047
  833.     FClose 2
  834.     Goto LABEL003
  835.     :LABEL048
  836.     Cls
  837.     Newline
  838.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  839.     PrintLn "@X09│                                                                             │"
  840.     PrintLn "@X01│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┐@X01│"
  841.     PrintLn "@X08│@X09│ @X02A@X0F}  BBS Name  :@X0B " + STRING001 + "@POS:78@@X09│@X08│"
  842.     PrintLn "@X08.@X01│ @X02B@X0F}  Sysop     :@X0B " + STRING004 + "@POS:78@@X01│@X08."
  843.     PrintLn "@X08.│ @X02C@X0F}  Nodes     :@X0B " + STRING003 + "@POS:78@@X08│."
  844.     PrintLn "@X08·. @X02D@X0F}  Phone #1  :@X0B " + TSTRING002(1) + "@POS:78@@X08."
  845.     PrintLn "@X08 . @X02E@X0F}  Phone #2  :@X0B " + TSTRING002(2) + "@POS:78@@X08."
  846.     PrintLn "@X08 · @X02F@X0F}  Baud Rate :@X0B " + STRING005 + "@POS:78@@X08·"
  847.     PrintLn "@X08   @X02G@X0F}  Network   :@X0B " + STRING006 + "@POS:78@"
  848.     PrintLn "@X02   H@X0F}  Software  :@X0B " + STRING007 + "@POS:78@"
  849.     PrintLn "@X0F @X08· @X02I@X0F}  Desc #1   :@X0B " + TSTRING008(1) + "@POS:78@@X08·"
  850.     PrintLn "@X08       @X0FDesc #2   :@X0B " + TSTRING008(2) + "@POS:78@"
  851.     PrintLn "@X08·.     @X0FDesc #3   :@X0B " + TSTRING008(3) + "@POS:78@@X08.·"
  852.     PrintLn "@X08.│     @X0FDesc #4   :@X0B " + TSTRING008(4) + "@POS:78@@X08│."
  853.     PrintLn "@X08.@X01│ @X02J@X0F}@X01··@X0FEditor    :@X0B " + STRING009 + "@POS:78@@X01│@X08."
  854.     PrintLn "@X08│@X09│                                                                           │@X08│"
  855.     PrintLn "@X01│@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘@X01│"
  856.     PrintLn "@X09│  @X02S@X0Fave / Quit                   @X02Letter to Edit               @X02Q@X0Fuit / No Save  @X09│"
  857.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·            ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  858.     Newline
  859.     :LABEL049
  860.     STRING011 = ""
  861.     STRING011 = Inkey()
  862.     If (Upper(STRING011) == "Q") Then
  863.         FSeek 2, -INTEGER002, 1
  864.         Goto LABEL046
  865.     Endif
  866.     If (Upper(STRING011) == "A") Goto LABEL050
  867.     If (Upper(STRING011) == "B") Goto LABEL051
  868.     If (Upper(STRING011) == "C") Goto LABEL052
  869.     If (Upper(STRING011) == "D") Goto LABEL053
  870.     If (Upper(STRING011) == "E") Goto LABEL054
  871.     If (Upper(STRING011) == "F") Goto LABEL055
  872.     If (Upper(STRING011) == "G") Goto LABEL056
  873.     If (Upper(STRING011) == "H") Goto LABEL057
  874.     If (Upper(STRING011) == "I") Goto LABEL058
  875.     If (Upper(STRING011) == "J") Goto LABEL059
  876.     If (Upper(STRING011) == "S") Goto LABEL060
  877.     Goto LABEL049
  878.     :LABEL050
  879.     Cls
  880.     Newlines 2
  881.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  882.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  883.     PrintLn "@X08·@X01│                                                                           │@X08·"
  884.     PrintLn "@X08·  Enter The New BBS Name:                                       @POS:78@·"
  885.     PrintLn "@X08·@X01│                                                                           │@X08·"
  886.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  887.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  888.     AnsiPos 28, 6
  889.     InputStr "_", STRING001, 1, 30, Mask_Ascii(), 2 + 4 + 64
  890.     Goto LABEL048
  891.     :LABEL051
  892.     Cls
  893.     Newlines 2
  894.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  895.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  896.     PrintLn "@X08·@X01│                                                                           │@X08·"
  897.     PrintLn "@X08·  Enter The New Sysop's Name:                                @POS:78@·"
  898.     PrintLn "@X08·@X01│                                                                           │@X08·"
  899.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  900.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  901.     AnsiPos 32, 6
  902.     InputStr "_", STRING004, 1, 25, Mask_Ascii(), 2 + 4 + 64
  903.     Goto LABEL048
  904.     :LABEL052
  905.     Cls
  906.     Newlines 2
  907.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  908.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  909.     PrintLn "@X08·@X01│                                                                           │@X08·"
  910.     PrintLn "@X08·  Enter The New Amount Of Nodes:                                       @POS:78@·"
  911.     PrintLn "@X08·@X01│                                                                           │@X08·"
  912.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  913.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  914.     AnsiPos 35, 6
  915.     InputStr "_", STRING003, 1, 3, Mask_Num(), 2 + 4 + 64
  916.     Goto LABEL048
  917.     :LABEL053
  918.     Cls
  919.     Newlines 2
  920.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  921.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  922.     PrintLn "@X08·@X01│                                                                           │@X08·"
  923.     PrintLn "@X08·  Enter The New Main BBS Number:                                      @POS:78@·"
  924.     PrintLn "@X08·@X01│                                                                           │@X08·"
  925.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  926.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  927.     Gosub LABEL069
  928.     TSTRING002(1) = STRING031
  929.     Goto LABEL048
  930.     :LABEL054
  931.     Cls
  932.     Newlines 2
  933.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  934.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  935.     PrintLn "@X08·@X01│                                                                           │@X08·"
  936.     PrintLn "@X08·  Enter The New Second BBS Number:                                    @POS:78@·"
  937.     PrintLn "@X08·@X01│                                                                           │@X08·"
  938.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  939.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  940.     Gosub LABEL070
  941.     TSTRING002(2) = STRING031
  942.     Goto LABEL048
  943.     :LABEL055
  944.     Cls
  945.     Newlines 2
  946.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  947.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  948.     PrintLn "@X08·@X01│                                                                           │@X08·"
  949.     PrintLn "@X08·  Enter The Highest Supported Buad Rate:                              @POS:78@·"
  950.     PrintLn "@X08·@X01│                                                                           │@X08·"
  951.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  952.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  953.     AnsiPos 43, 6
  954.     InputStr "_", STRING005, 1, 15, Mask_Ascii(), 2 + 4 + 64
  955.     Goto LABEL048
  956.     :LABEL056
  957.     Cls
  958.     Newlines 2
  959.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  960.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  961.     PrintLn "@X08·@X01│                                                                           │@X08·"
  962.     PrintLn "@X08·  Enter The Network/Network Address:                                  @POS:78@·"
  963.     PrintLn "@X08·@X01│                                                                           │@X08·"
  964.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  965.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  966.     AnsiPos 39, 6
  967.     InputStr "_", STRING006, 1, 20, Mask_Ascii(), 2 + 4 + 64
  968.     Goto LABEL048
  969.     :LABEL057
  970.     Cls
  971.     Newlines 2
  972.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  973.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  974.     PrintLn "@X08·@X01│                                                                           │@X08·"
  975.     PrintLn "@X08·  Enter The Software Type And Version:                                @POS:78@·"
  976.     PrintLn "@X08·@X01│                                                                           │@X08·"
  977.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  978.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  979.     AnsiPos 41, 6
  980.     InputStr "_", STRING007, 1, 20, Mask_Ascii(), 2 + 4 + 64
  981.     Goto LABEL048
  982.     :LABEL058
  983.     Cls
  984.     Newlines 2
  985.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  986.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  987.     PrintLn "@X08·@X01│ Enter Your New Description:                                               │@X08·"
  988.     PrintLn "@X08"
  989.     PrintLn "@X08   ......................................................."
  990.     PrintLn "@X08   ......................................................."
  991.     PrintLn "@X08·  .......................................................@POS:78@·"
  992.     PrintLn "@X08·@X01│ @X08.......................................................@POS:78@@X01│@X08·"
  993.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  994.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  995.     AnsiPos 4, 7
  996.     InputStr "_", TSTRING008(1), 1, 55, Mask_Ascii(), 2 + 4 + 64
  997.     AnsiPos 4, 8
  998.     InputStr "_", TSTRING008(2), 1, 55, Mask_Ascii(), 2 + 4 + 64
  999.     AnsiPos 4, 9
  1000.     InputStr "_", TSTRING008(3), 1, 55, Mask_Ascii(), 2 + 4 + 64
  1001.     AnsiPos 4, 10
  1002.     InputStr "_", TSTRING008(4), 1, 55, Mask_Ascii(), 2 + 4 + 64
  1003.     Goto LABEL048
  1004.     :LABEL059
  1005.     Cls
  1006.     Newlines 2
  1007.     PrintLn "@X0F┌@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┐"
  1008.     PrintLn "@X09│@X0F┌@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┐@X09│"
  1009.     PrintLn "@X08·@X01│                                                                           │@X08·"
  1010.     PrintLn "@X08·  Enter Name Of Person Allowed To Edit Entry:        @POS:78@·"
  1011.     PrintLn "@X08·@X01│                                                                           │@X08·"
  1012.     PrintLn "@X09│@X0F└@X09──@X01──@X08──∙∙ ∙  ·    ∙∙ ∙    ·   ∙ ∙∙──@X01──@X09─@X01──@X08──∙∙ ∙  ·      ∙∙ ∙  ·   ∙ ∙∙──@X01──@X09──@X0F┘@X09│"
  1013.     PrintLn "@X0F└@X09──@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09───@X01──@X08──∙∙ ∙  ·     ∙∙ ∙   ·   ∙ ∙∙──@X01──@X09──@X0F┘"
  1014.     AnsiPos 48, 6
  1015.     InputStr "_", STRING009, 1, 25, Mask_Ascii(), 2 + 4 + 64
  1016.     Goto LABEL048
  1017.     :LABEL060
  1018.     Log "BBS LISTER : Saved Edit - " + STRING001, 0
  1019.     BOOLEAN001 = 1
  1020.     FSeek 2, -INTEGER002, 1
  1021.     FWrite 2, STRING018, 7
  1022.     FWrite 2, STRING013, 25
  1023.     FWrite 2, STRING014, 8
  1024.     FWrite 2, STRING001, 30
  1025.     FWrite 2, STRING004, 25
  1026.     FWrite 2, STRING003, 3
  1027.     FWrite 2, TSTRING002(1), 14
  1028.     FWrite 2, TSTRING002(2), 14
  1029.     FWrite 2, STRING005, 15
  1030.     FWrite 2, STRING006, 20
  1031.     FWrite 2, STRING007, 20
  1032.     FWrite 2, TSTRING008(1), 55
  1033.     FWrite 2, TSTRING008(2), 55
  1034.     FWrite 2, TSTRING008(3), 55
  1035.     FWrite 2, TSTRING008(4), 55
  1036.     FWrite 2, STRING009, 25
  1037.     Goto LABEL044
  1038.     :LABEL061
  1039.     Log "BBS LISTER : Removed - " + STRING001, 0
  1040.     BOOLEAN002 = 1
  1041.     BOOLEAN001 = 1
  1042.     FSeek 2, -INTEGER002, 1
  1043.     FWrite 2, STRING018, 7
  1044.     FWrite 2, "", 25
  1045.     FWrite 2, "", 8
  1046.     FWrite 2, "** REMOVED **", 30
  1047.     FWrite 2, "", 25
  1048.     FWrite 2, "", 3
  1049.     FWrite 2, "", 14
  1050.     FWrite 2, "", 14
  1051.     FWrite 2, "", 15
  1052.     FWrite 2, "", 20
  1053.     FWrite 2, "", 20
  1054.     FWrite 2, "", 55
  1055.     FWrite 2, "", 55
  1056.     FWrite 2, "", 55
  1057.     FWrite 2, "", 55
  1058.     FWrite 2, "", 25
  1059.     STRING013 = ""
  1060.     STRING014 = ""
  1061.     STRING001 = "** REMOVED **"
  1062.     STRING004 = ""
  1063.     STRING003 = ""
  1064.     TSTRING002(1) = ""
  1065.     TSTRING002(2) = ""
  1066.     STRING005 = ""
  1067.     STRING006 = ""
  1068.     STRING007 = ""
  1069.     TSTRING008(1) = ""
  1070.     TSTRING008(2) = ""
  1071.     TSTRING008(3) = ""
  1072.     TSTRING008(4) = ""
  1073.     STRING009 = ""
  1074.     Goto LABEL044
  1075.     :LABEL062
  1076.     If (!BOOLEAN001) Return
  1077.     FOpen 1, STRING023, 2, 3
  1078.     FOpen 2, STRING025, 2, 3
  1079.     :LABEL063
  1080.     If (Ferr(2)) Goto LABEL064
  1081.     FRead 2, STRING018, 7
  1082.     If (Ferr(2)) Goto LABEL064
  1083.     FRead 2, STRING013, 25
  1084.     FRead 2, STRING014, 8
  1085.     FRead 2, STRING001, 30
  1086.     FRead 2, STRING004, 25
  1087.     FRead 2, STRING003, 3
  1088.     FRead 2, TSTRING002(1), 14
  1089.     FRead 2, TSTRING002(2), 14
  1090.     FRead 2, STRING005, 15
  1091.     FRead 2, STRING006, 20
  1092.     FRead 2, STRING007, 20
  1093.     FRead 2, TSTRING008(1), 55
  1094.     FRead 2, TSTRING008(2), 55
  1095.     FRead 2, TSTRING008(3), 55
  1096.     FRead 2, TSTRING008(4), 55
  1097.     FRead 2, STRING009, 25
  1098.     FSeek 1, INTEGER001 * (STRING018 - 1), 0
  1099.     FWrite 1, STRING013, 25
  1100.     FWrite 1, String(Date()), 8
  1101.     FWrite 1, STRING001, 30
  1102.     FWrite 1, STRING004, 25
  1103.     FWrite 1, STRING003, 3
  1104.     FWrite 1, TSTRING002(1), 14
  1105.     FWrite 1, TSTRING002(2), 14
  1106.     FWrite 1, STRING005, 15
  1107.     FWrite 1, STRING006, 20
  1108.     FWrite 1, STRING007, 20
  1109.     FWrite 1, TSTRING008(1), 55
  1110.     FWrite 1, TSTRING008(2), 55
  1111.     FWrite 1, TSTRING008(3), 55
  1112.     FWrite 1, TSTRING008(4), 55
  1113.     FWrite 1, STRING009, 25
  1114.     Goto LABEL063
  1115.     :LABEL064
  1116.     FClose 1
  1117.     FClose 2
  1118.     If (!BOOLEAN002) Return
  1119.     FOpen 1, STRING023, 0, 3
  1120.     FCreate 2, STRING026, 2, 3
  1121.     :LABEL065
  1122.     If (Ferr(1)) Goto LABEL066
  1123.     FRead 1, STRING013, 25
  1124.     If (Ferr(1)) Goto LABEL066
  1125.     FRead 1, STRING014, 8
  1126.     FRead 1, STRING001, 30
  1127.     FRead 1, STRING004, 25
  1128.     FRead 1, STRING003, 3
  1129.     FRead 1, TSTRING002(1), 14
  1130.     FRead 1, TSTRING002(2), 14
  1131.     FRead 1, STRING005, 15
  1132.     FRead 1, STRING006, 20
  1133.     FRead 1, STRING007, 20
  1134.     FRead 1, TSTRING008(1), 55
  1135.     FRead 1, TSTRING008(2), 55
  1136.     FRead 1, TSTRING008(3), 55
  1137.     FRead 1, TSTRING008(4), 55
  1138.     FRead 1, STRING009, 25
  1139.     If (STRING001 <> "** REMOVED **") Then
  1140.         FWrite 2, STRING013, 25
  1141.         FWrite 2, STRING014, 8
  1142.         FWrite 2, STRING001, 30
  1143.         FWrite 2, STRING004, 25
  1144.         FWrite 2, STRING003, 3
  1145.         FWrite 2, TSTRING002(1), 14
  1146.         FWrite 2, TSTRING002(2), 14
  1147.         FWrite 2, STRING005, 15
  1148.         FWrite 2, STRING006, 20
  1149.         FWrite 2, STRING007, 20
  1150.         FWrite 2, TSTRING008(1), 55
  1151.         FWrite 2, TSTRING008(2), 55
  1152.         FWrite 2, TSTRING008(3), 55
  1153.         FWrite 2, TSTRING008(4), 55
  1154.         FWrite 2, STRING009, 25
  1155.     Endif
  1156.     Goto LABEL065
  1157.     :LABEL066
  1158.     FClose 1
  1159.     FClose 2
  1160.     Delete STRING023
  1161.     Rename STRING026, STRING023
  1162.     If (FileInf(STRING023, 4) == 0) Delete STRING023
  1163.     Return
  1164.     :LABEL067
  1165.     STRING029 = 0
  1166.     BOOLEAN006 = 0
  1167.     BOOLEAN007 = 0
  1168.     STRING028 = "@X09(@X02"
  1169.     AnsiPos 26, 8
  1170.     Print STRING028
  1171.     Goto LABEL071
  1172.     :LABEL068
  1173.     STRING029 = 0
  1174.     BOOLEAN006 = 0
  1175.     BOOLEAN007 = 0
  1176.     STRING028 = "@X09(@X02"
  1177.     AnsiPos 26, 9
  1178.     Print STRING028
  1179.     Goto LABEL071
  1180.     :LABEL069
  1181.     STRING029 = 0
  1182.     BOOLEAN006 = 0
  1183.     BOOLEAN007 = 0
  1184.     STRING028 = "@X09(@X02"
  1185.     AnsiPos 35, 6
  1186.     Print STRING028
  1187.     Goto LABEL071
  1188.     :LABEL070
  1189.     STRING029 = 0
  1190.     BOOLEAN006 = 0
  1191.     BOOLEAN007 = 0
  1192.     STRING028 = "@X09(@X02"
  1193.     AnsiPos 37, 6
  1194.     Print STRING028
  1195.     :LABEL071
  1196.     STRING027 = ""
  1197.     STRING027 = Inkey()
  1198.     If ((STRING027 == Chr(8)) && (Len(STRING028) > 9)) Then
  1199.         STRING030 = Len(StripAtx(STRING028))
  1200.         Dec STRING029
  1201.         STRING028 = Mid(STRING028, 1, Len(STRING028) - 1)
  1202.         If (Len(STRING028) == 21) Then
  1203.             STRING028 = Mid(STRING028, 1, Len(STRING028) - 10)
  1204.             BOOLEAN006 = 0
  1205.             Goto LABEL072
  1206.         Endif
  1207.         If (Len(STRING028) == 33) Then
  1208.             STRING028 = Mid(STRING028, 1, Len(STRING028) - 9)
  1209.             BOOLEAN007 = 0
  1210.         Endif
  1211.         :LABEL072
  1212.         Backup STRING030
  1213.         Print "                    "
  1214.         Backup 20
  1215.         Print STRING028
  1216.     Endif
  1217.     If ((((((((((STRING027 == "0") || (STRING027 == "1")) || (STRING027 == "2")) || (STRING027 == "3")) || (STRING027 == "4")) || (STRING027 == "5")) || (STRING027 == "6")) || (STRING027 == "7")) || (STRING027 == "8")) || (STRING027 == "9")) Then
  1218.         If (STRING029 == 10) Goto LABEL071
  1219.         STRING030 = Len(StripAtx(STRING028))
  1220.         Inc STRING029
  1221.         STRING028 = STRING028 + STRING027
  1222.         Backup STRING030
  1223.         Print STRING028
  1224.     Endif
  1225.     If ((STRING029 == 3) && (BOOLEAN006 == 0)) Then
  1226.         STRING030 = Len(StripAtx(STRING028))
  1227.         BOOLEAN006 = 1
  1228.         STRING028 = STRING028 + "@X09) @X02"
  1229.         Backup STRING030
  1230.         Print STRING028
  1231.     ElseIf ((STRING029 == 6) && (BOOLEAN007 == 0)) Then
  1232.         STRING030 = Len(StripAtx(STRING028))
  1233.         BOOLEAN007 = 1
  1234.         STRING028 = STRING028 + "@X09-@X02"
  1235.         Backup STRING030
  1236.         Print STRING028
  1237.     Endif
  1238.     If ((STRING027 == Chr(13)) && (Len(STRING028) <> 38)) Then
  1239.         STRING028 = ""
  1240.     Else
  1241.         If ((STRING027 == Chr(13)) && (Len(STRING028) == 38)) Goto LABEL073
  1242.         Goto LABEL071
  1243.     Endif
  1244.     :LABEL073
  1245.     STRING031 = StripAtx(STRING028)
  1246.     PrintLn 
  1247.     Return
  1248.     :LABEL074
  1249.     Log "BBS LISTER : Exiting", 0
  1250.  
  1251. ;------------------------------------------------------------------------------
  1252. ;
  1253. ; Usage report (before postprocessing)
  1254. ;
  1255. ; ■ Statements used :
  1256. ;
  1257. ;    29      Cls
  1258. ;    8       Wait
  1259. ;    163     Goto 
  1260. ;    128     Let 
  1261. ;    9       Print 
  1262. ;    318     PrintLn 
  1263. ;    94      If 
  1264. ;    4       FCreate 
  1265. ;    11      FOpen 
  1266. ;    16      FClose 
  1267. ;    3       FGet 
  1268. ;    18      FPutLn 
  1269. ;    1       GetUser
  1270. ;    4       Delete 
  1271. ;    6       Log 
  1272. ;    33      InputStr 
  1273. ;    8       Gosub 
  1274. ;    5       Return
  1275. ;    2       Delay 
  1276. ;    4       Inc 
  1277. ;    3       Dec 
  1278. ;    16      Newline
  1279. ;    29      Newlines 
  1280. ;    1       Tokenize 
  1281. ;    1       GetToken 
  1282. ;    37      AnsiPos 
  1283. ;    5       Backup 
  1284. ;    1       Rename 
  1285. ;    13      FSeek 
  1286. ;    122     FRead 
  1287. ;    93      FWrite 
  1288. ;    1       Download 
  1289. ;
  1290. ;
  1291. ; ■ Functions used :
  1292. ;
  1293. ;    5       -
  1294. ;    7       *
  1295. ;    3       /
  1296. ;    233     +
  1297. ;    4       -
  1298. ;    73      ==
  1299. ;    9       <>
  1300. ;    5       <
  1301. ;    3       <=
  1302. ;    1       >
  1303. ;    7       >=
  1304. ;    31      !
  1305. ;    15      &&
  1306. ;    17      ||
  1307. ;    14      Len(
  1308. ;    43      Upper()
  1309. ;    4       Mid()
  1310. ;    14      Ferr()
  1311. ;    3       Chr()
  1312. ;    1       Asc()
  1313. ;    1       InStr()
  1314. ;    2       Date()
  1315. ;    3       U_Name()
  1316. ;    5       StripAtx()
  1317. ;    2       Strip()
  1318. ;    7       Inkey()
  1319. ;    2       String()
  1320. ;    3       Mask_Num()
  1321. ;    30      Mask_Ascii()
  1322. ;    9       PPEPath()
  1323. ;    8       Exist()
  1324. ;    3       FileInf()
  1325. ;    1       TokCount()
  1326. ;
  1327. ;------------------------------------------------------------------------------
  1328. ;
  1329. ; Analysis flags : No flag
  1330. ;
  1331. ;------------------------------------------------------------------------------
  1332. ;
  1333. ; Postprocessing report
  1334. ;
  1335. ;    3       For/Next
  1336. ;    0       While/EndWhile
  1337. ;    22      If/Then or If/Then/Else
  1338. ;    2       Select Case
  1339. ;
  1340. ;------------------------------------------------------------------------------
  1341. ;                 AEGiS Corp - Break the routines, code against the machines!
  1342. ;------------------------------------------------------------------------------
  1343.